home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / tron.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  27 lines
  1. 1 PRINT"[147]"
  2. 10 SC=10:CL=54272:CW=15:CN=15:POKE53281,15
  3. 20 POKE808,225
  4. 100 PRINT"[147]            TRON   BY BOB MAAS  [144]"
  5. 110 PRINT" A TWO PLAYER GAME IN WHICH YOU TRY TO   COLOR IN MORE DOTS THAN YOUR";
  6. 120 PRINT" OPPONENT":PRINT"          3000 IS MAXIUM SCORE"
  7. 130 PRINT"IF YOU BOTH GET BLOCKED IN PUSH S TO END":PRINTSPC(91)"PUSH KEY TO START"
  8. 200 IFPEEK(197)=64THEN200
  9. 1000 PRINT"[147]":W=1527:WW=W:N=1520:NN=N:S1=0:S2=0:FORF=55336TO56254:POKEF,1:NEXT
  10. 1005 FORF=1024TO1063:POKEF,81:POKEF+960,81:POKEF+CL,2:POKEF+CL+960,2:NEXT
  11. 1010 FORF=1064TO1944STEP40:POKEF,81:POKEF+39,81:POKEF+CL,2:POKEF+CL+39,2:NEXT
  12. 1040 PRINT"STOSTOP"
  13. 1050 PRINT"TRONBYBOBMAAS[145]"
  14. 2000 P=PEEK(56320):W=W+(P=123)-(P=119):W=W+(40*(P=126))-((P=125)*40)
  15. 2020 IFPEEK(W)<>32THENW=WW
  16. 2030 IFPEEK(W)=32ANDP<>127THENS2=S2+SC
  17. 2040 POKEWW,81:POKEW,CW:WW=W
  18. 3000 P=PEEK(56321):N=N+(P=251)-(P=247):N=N+(40*(P=254))-((P=253)*40)
  19. 3020 IFPEEK(N)<>32THENN=NN
  20. 3030 IFPEEK(N)=32ANDP<>255THENS1=S1+SC
  21. 3040 GETA$:IFA$="S"THENGOTO5000
  22. 4000 POKENN,81:POKEN,CN:NN=N:POKEN+CL,0:IFS1<SC*300ANDS2<SC*300THEN2000
  23. 5000 PRINT"[144]ONE="S1;TAB(30)"TWO="S2
  24. 5010 PRINT">>> TO PLAY AGAIN PUSH FIRE BUTTON <<<"
  25. 5110 IFPEEK(56320)=111ORPEEK(56321)=239THENGOTO1000
  26. 5120 GOTO5110
  27.